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PART II 



Bruce J. MacLennan 
Computer Science Department 
Naval Postgraduate School 
Monterey, CA 93943 



Abstract; 

This is the second report of a series exploring the use of the U programming notation to prototype a 
programming environment. This environment includes an interpreter, un parser, syntax directed editor, 
command interpreter, debugger and code generator, and supports programming in a small applicative 
language. The present report extends the interpreter, unparser, syntax directed editor, command inter- 
preter and debugger to accomodate block-structured identifier declaration and reference. 



1. Introduction 

Our goal in this series of reports* is to explore in the context of a very simple language the use of the 
f2 programming notation [MacLennan83, MacLennan85] to implement some of the tools that consti- 
tute a programming environment. 

Our goal in this report is to extend the language defined in [MacLennan85b] to incorporate block 
structured name definitions. For example, we want to allow programs such as these: 

[let X = (3+ 5) 

[let Y = (6-2-2) 

(X+ ( Y 1) ) ] ] 

We do this in stages, first making the necessary changes to the abstract syntax, second modifying the 
unparser and syntax-directed editor, third extending the evaluator, and finally modifying the debugger. 

* Support for this research was provided by the Office of Naval Research under contracts N0001 4-85-WR-24057 and N00014- 
86- WR-24092. 
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2. Abstract Structure 



There are two new constructs to be added to the language: let blocks for binding names to values, and 
identifier references for making use of the values bound to names. A let block such as this: 

[let N = X 

B] 

will be represented by the structure 




Identifier references are illustrated by the expression: 

(Y-l) 

which is represented by the abstract structure: 




These abstract structures are easily accommodated in the relational framework. The static relations 
required are: 
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. Block (£) 

E is a block 

. BndVar (TV, E) 

TV is bound variable of E 

. BndVal ( X , E) 

X is bound value of E 

. Body (£, E) 

B is body of E 

. Var (£) 

E is a variable 

. Ident (TV, E) 

N is identifier of E 

The domains of these relations are: 

• expr = Con U Appl U Block U Var U Undef 

• Degree (Block, 1) 

• Function (BndVar, Block, string) 

• Function (BndVal, Block, expr) 

• Function (Body, Block, expr) 

• Degree (Var, l) 

• Function (Ident, Var, string) 
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3. Unparser 



3.1 Unparsing Variables 

The unparser rules must be augmented to accommodate the new constructs. Since Var nodes are 
leaves in the expression tree, they can be handled by a single rule: 

*Unparse (f£), Var (f£), Went ( iV, E) 

=$> Image (N, E ) . 

That is, if we are unparsing a variable, and a string is the identifier associated with that variable, then 
that string becomes the image of that variable. 

3.2 Un parsing Blocks 

Since Block nodes are not leaves, two additional rules are required, an analysis rule that passes the 
Unparse attribute down the tree, and a synthesis rule that forms the composite image from the images 
of the components. The analysis rule is: 

*U nparse (£), Block (£), BndVal ( X , £), Body ( B , E) 

=> Unparse ( AT) , Unparse (f?). 

That is, when we are unparsing a block, then we unparse the bound value and the body of that block. 
We do not need to unparse the bound variable, since that is just a string, i.e., its own image. 

The synthesis rule is: 

Block (£), Bn d Var (V, E) t BndVal (X, E), Body (5, E), *Image (If, X), *Image (V, B) 

=> Image ( 

Tabln ~NL 

"“[let 55 A N " U 

" Tabln ~NL * V j” 

*TabOut "TabOut, 

E). 

That is, when images have arrived for the bound value and body of a block, then we use these to con- 
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struct the image for the block. Notice that we have assumed that the variables ‘NL’, ‘Tabln’ and 
‘TabOut’ are defined. These are strings that represent commands to a low-level display formatter, 
which is also assumed to break between tokens lines that are too long. The functions of these com- 
mand strings are: 

• NL: Go to new line and start to display text at current left margin. 

• Tabln: Move left margin in (to the right) by some fixed increment (say, two spaces). 

• TabOut: Move left margin out (to the left) by the same fixed increment used by Tabln. 

Tabln and TabOut are assumed to take effect on the next newline; they do not cause a newline on their 
own. 



- 5 - 



4. Syntax-Directed Editor 



In this section we consider the changes to the syntax- directed editor necessary to accommodate Block 
and Variable nodes. First, the let command for creating Block nodes is handled by the rule: 

*Command (let), *Argument (iV), *CurrentNode (i?), *Undef (£*), *Avail (A, B) 

=> Block (£), BndVar (AT, E) , BndVal (A, E), Body (£, £), 

Undef (A), Undef (5), CurrentNode (A). 

The rule for the var command is similar: 

^Command (var), *Argument (V), CurrentNode (i?), *Undef (i?) 

=^> Var (E ) , Ident (V, E). 

It would also be desirable to have rules that detect the attempt to make an already-defined node into a 
Block or Var. Furthermore, rules are required for deleting Block and Var nodes. 

It is also necessary to update the local navigation commands (in, out, next and prev) to recognize 
Blocks. This requires at least one extra rule for each of these commands. For example, for next we 
need: 

*Command (next), ^CurrentNode (A), BndVal (A, £*), Body (5, E) 

=s> CurrentNode (5), Command (show). 



The other commands are similar. 



5. Dynamic Structure 



5.1 Data Structures 

Clearly changes will have to be made to the interpreter to accommodate the new program structures. 
It will now be necessary to keep track of the environment in which an expression is to be evaluated. 
Here the environment is a set of nested contexts, each of which binds a name to its value. Thus the 
environment can be visualized as a chain, beginning with the environment of evaluations and terminat- 
ing with the outermost (empty) context: 



Eval 




Vx 









This runtime structure can be represented by the following dynamic relations: 

• Context(C) 

C is a context 



Binds(C,iV, V) 

C binds N to V 
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• Nonlocal (C,D) 

C is nonlocal context of D 

The domains of these relations are: 

Degree (Context, 1) 

• Degree (Binds, 3) 

• Domain (l, Binds, Context) 

• Domain (2, Binds, string) 

• Domain (3, Binds, integer) 

• Indexed (Binds, 1) 

• Function (Nonlocal, Context, Context) 

5.2 Modifications to Existing Interpreter Rules 

Next we consider the required modifications to the interpreter. In particular, we must modify the 
interpreter to reflect context in which evaluation is being done. Thus we add a ‘C* parameter to every 
existing use of Eval relation: 

‘Eval(’ - ‘)’ => ‘Eval(’ - \C)\ 

(Note that (E,C) arguments to Eval are analogous to an IP-EP pair.) We make analogous changes to 
Value and Check: 

‘Value (’ - V - *)’ => ‘Value (’ - 7 - ‘,C)\ 

‘Check (’- y- ‘)’ ‘Check (’ - 7 - ‘,C)\ 

Since the interpreter may detect an error in evaluation, we must also consider the proper handling of 
the environment when an error occurs. Hence, in addition to recording (in CurrentNode) the node 
whose evaluation caused the error, we will also record (in CurrentContext) the context in which that 
node was being evaluated. So we alter error handling to save the current node and the current context: 

*Check( 1V,£,C), Explanation ( 5, IV), *CurrentNode( — ), *CurrentContext(— ) if errorcode[ W\ 



Display(S), CurrentNode ( E ) , CurrentContext( C) . 



Similarly, the evaluate command uses this saved context: 



*Co mm an d( evaluate) , CurrentNode ( E ) , CurrentContext( C) 

=> Eval(£,C). 

5.3 Rules for Block Evaluation 

There are three steps in the evaluation of a block: 

1. Evaluate the bound value expression. 

2. Bind the local name to the bound value and evaluate the block body in the resulting context. 

3. Return the value of the block body to the parent expression. 

We consider the rules for each of these steps. To evaluate the bound value we have: 

*Eval(£,C), Block ( E), BndVal(X,£) 

Eval (X } C). 

That is, when the Eval message arrives at the block, we send it on to the bound value expression. 
Notice that the bound value expression is evaluated in the same environment as the block (thus recur- 
sive definitions are not permitted). 

Next we bind the local name to the bound value and evaluate the body in the resulting context. 
This is accomplished by waiting for a value to arrive and the node for the bound value expression, and 
using it to create a new context: 

Block (£), BndVar( N, E ) , BndVal(X,£), Body(R,£), *Valu e(V,X,C), *Avail {D) 

=> Context(D), Binds( D ,N , V ) , Nonlocal s(C,D), Eval(R,/}). 

The last rule waits for a value to be attached to the block body, and returns the value to the surround- 
ing expression: 

Block(E), Body (£,£), *Value( V,B,D ) , NonLocals( C,D) 

=^> Value( V,E, C) . 
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5.4 Name Lookup 



Next we consider the rules for name lookup. To control the lookup process we need an additional 
dynamic relation: 

• Looking (NjC jE^D) 

Looking for N in C, to be value of E in D 

• Degree (Looking, 2) 

• Domain (1, Looking, string) 

• Domain (2, Looking, Context) 

• Domain (3, Looking, expr) 

• Domain (4, Looking, Context) 

The first rule initiates the search when an Eval message arrives at a Var node. The search begins with 
the current context: 

*Eval(£,C), Var(E), Ident(7V,£) 

=> Looking ( /V, C,£, C) 

Now there are several possible conditions that occur during a search. First, the binding may be found, 
in which case we must attach the bound value to the Var node: 

*Looking(JV,C,£,D), Binds ( C,jV, V) 

=> Value( V,E,D). 

Second, we might not have found the binding, but there might be more nonlocal contexts in the 
environment chain. Thus we continue looking: 

else *Looking(jV, C,£,D) , Nonlocal(C ' C) 

=> Looking ( AT, C '£,/?). 

Finally, if a binding for the name has not been found, and we are at the end of the environment chain, 
then the variable must be unbound, so we signal an error: 



else *Looking( N, C,E,D ) , *CurrentNode( — ), *CurrentContext() 
=> CurrentNode( E ) , CurrentContext(D) , Display (“Unbound: 



Thus we are naturally led to the next topic, the debugger. 
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6. Debugging Commands 



6.1 Desired Features 

Debugging requires commands to interrogate and update the “contextual database.” For example: 

• out_cantext: 

move to next outer context 

• in_context: 

move to next inner context 

(this may not be single-valued, i.e . , there may be several more inner contexts; a real debugger 
would have to handle this) 

• context: 

display local context 

• alter v: 

alter local binding 

We give an example illustrating these commands. For the sake of the example we suppose that the 
evaluation is started and then interrupted (by the attention key) within the innermost context. We 
begin by showing the program: 

show 

[let X = (3+ 5) 

[let Y = (6-r2) 

(X+ ( Y 1) ) ] ] 

Next we begin interpretation, and interrupt it: 

evaluate 

attention 

interrupted 

We can now look at the current context (saved in CurrentCon text upon interruption): 
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context 



Y = 3 

We can move to the surrounding context: 

outjcantext 
X = 8 

We can alter the bound value in this context: 

alter 7 
X = 7 

We can return back to the original context: 

in_context 

Y = 3 

And, if we move too far out, we’ll be told: 

outjcantext 
X = 7 
outjcantext 
at outermost level 

6.2 Implementation of Debugging Commands 

How can these commands be implemented? They’re quite easy. First consider the context command. 
All that’s necessary here is to extract the bound variable and it’s value from the current context, and 
display them: 

*Co mm and (context), CurrentContext( C) , Binds( C, N, V) 

=> Display( N = ” * strings int ( V\ ) 

else *Comm and (context) 

=5> Display (“no bindings”). 

We have added a diagnostic rule for the case where there are no active contexts. 
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The out_cantext command is also simple: we move out on the environment chain and display its 
binding by issuing a context command: 

*Command(out_context) , *CurrentContext(Z?) , Nonlocal (C,D) 

=> CurrentContext(C) , Comm and (context) 

else *Command(out_context) 

=> Display(“at outermost level”). 

The in_con text command is analogous. 

All that remains is the alter command. In this case we expect a new value to be typed in, and then 
use this value to replace the previous bound value: 

*Comm and ( alter) , *Argument( U ) , CurrentContext( C ) , *Binds( C, AT, V) 

=?> Binds ( C,jV, U), Co mm and (con text) 

else *Comm and ( alter) , *Argument(— ) 

=> Display(“no binding”). 



Again we’ve added a diagnostic rule. 
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APPENDIX A: Prototype Programming Environment 
Predicate Notation for Q 

The following is a loadable input file for the prototype programming environment described in this 
report. It is accepted by the McArthur interpreter [McArthur84] , which differs in a few details from 
the f2 described in the previous report (see [MacLennan84] ). A transcript of a test execution of this 
environment is shown in Appendix B. 

! PI-2 

! Rules and associated definitions for 

! an arithmetic expression language 

! with variable declarations. 



Relations 



! Program Structure Relations 



define {root, 
define {root, 
define {root, 
define {root, 
define {root, 
define {root, 
define {root, 
define {root, 
define {root, 
define {root, 
define {root, 
define {root, 



"Appl", newrel{}}; 
"Op", newrel{}}; 
,f Left", newrel{}}; 
'Right", newrel{}}; 
"Con", ne wrel{}}; 
,f Litval", newrel{}}; 
"Block", newrel{}}; 
"BndVar", newrel{}}; 
"BndVal", newrel{}}; 
"Body", newrel{}}; 
,T Var", newrel{}}; 
"Ident", newrel{}}; 



! Evaluation Relations 



define {root, "Eval", newrel{}}; 
define {root, ’‘Check", newrel{}}; 
define {root, ,r Value", newrel{}}; 
define {root, "Meaning", newrel{}}; 
define {root, ,f Explanation ", newrel{}}; 
define {root, "Context", newrel{}}; 
define {root, "Binds", newrel{}}; 
define {root, "Nonlocal", newrel{}}; 
define {root, "Looking", newrel{}}. 

! Unparser Relations 

define {root, "Unparse", newrel{}}; 
define {root, "Image", newrel{}}; 
define {root, 'Template", newrel{}}; 

! Command Interpreter Relations 

define {root, ’Command", newrel{}}; 
define {root, "Argument", newrel{}}; 
define {root, ’Root", newrel{}}; 
define {root, "Undef", newrel{}}; 
define {root, ’CurrentNode", newrel{}}; 
define {root, ’CurrentContext", newrel{}} 

define {root, "EvalPending", newrel{}}; 
define {root, ’ShowPending", newrel{}}; 
define {root, 'Create Appl", newrel{}}; 
define {root, 'Create Root", newrel{}}; 
define {root, ’CreateLet", newrel{}}; 



define {root, "Create Context", newrel{}}; 



define {root, ’Script", newrel{}}; 
define {root, ,f PendScript", newrel{}}; 
define {root, 'Test", newrel{}}. 

! Functions 

fn Id [x] : x; 
fn Sum [ x,y] : x + y; 
fn Dif [x,y]: x - y; 
fn Product [ x, y ] : x * y; 
fn Quotient [ x,y ] : 

if y = 0 -> [ "error", l] 
else x / y; 

fn IsErrorcode [w]: 

if TsList[w] | w = Nil -> Nil 
else first [w] = "error"; 

fn upSum [ x, y] : "(" + x + " + " + y + ")"; 
fn upDif [ x, y] : "("+ x + " - "+ y + ")"; 
fn upProd [ x,y ] : "(" + x + " x " + y + ")"; 
fn upQuot [ x, y ] : "(" + x + " / " y + ")". 

! Constants 

define {root, "NL", " 

define {root, 'Tabln", ""}; 
define {root, 'TabOut", 



Built-in Tables 



Meaning (Sum, "+"); 

Meaning (Dif, M - M ); 

Meaning (Product, , bc M ) ; 

Meaning (Quotient, "/"); 

Meaning (Id, "lit"); 

Template (upSum, "+"); 

Template (upDif, 

Template (upProd, ,! x"); 

Template (upQuot, ,f / ,f ) ; 

Template (int_str, ,T lit"); 

Explanation ("incomplete program", [’terror", 0]); 
Explanation ("division by zero", ("error", l]). 

! the Rules 

define {root, tr Pl2Rules", 

< < 

! Evaluator Rules 
! Constant nodes 

if *Eval(e,c), Con(e), Litval(v,e), Meaning(f, 'lit") 
-> Value(fjv] , e, c); 

! Appl nodes 

if *Eval(e,c), Appl(e), Left(x,e), Right(y,e) 

-> Eval(x,c), Eval(y,c); 
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if *Value(u,x,c) , *Value( v,y,c) , 

Appl(e), Op(n,e), Left(x,e), Right(y,e), Meaning(f, n) 

-> Check(f( u, v] , e, c); 

! Error Checking 

if *Check(w, e, c), ~IsErrorcode[w] 

-> Value(w, e, c); 

if *Check(w, e, c) , IsErrorcodej w] , Explanation^, w), *CurrentNode(q) 
-> displayn{s}, CurrentNode(e) , CurrentContext(c) ; 

! Unparser 

! Constant Nodes 

if *Unparse(e), Con(e), Litval(v,e), Template(f, ’lit") 

-> Im age(f[ v] , e); 

! Identifier nodes 

! Appl nodes 

if *Unparse(e), Appl(e), Left(x,e), Right(y,e) 

-> Unparse(x), Unparse(y); 

if *Image( u,x) , *Image(v,y), 

Appl(e) , Op(n,e), Left(x,e), Right(y,e), Template(f, n) 

-> Image(f[u,v] , e); 

! Command Interpreter Rules 

! evaluate Command 

if *Command( "evaluate’ 1 ), CurrentNode( E) , CurrentContext(C) 
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-> Eval(E,C), EvalPending( E) ; 



if *Value( V,E,C) , *EvalPending(E) 

-> displayn {V}; 

! return Command 

if *Command( , Val"), *Argument( V) , CurrentNode(E) 

-> Value( V,E,C) ; 

! show Command 

if *Command('!show"), CurrentNode(E) 

-> Unparse(E), ShowPending(E) ; 

if *Image(S,E), *ShowPending(E) 

-> displayn {S}; 

! abort Command 

if Commandj "abort") , *Eval(E,C) -> ; 
if Commandj "abort") , * Value ( V,E,C) -> ; 
if Command( "abort"), *Check( V,E,C) -> ; 
if Command! "abort”), *Nonlocal(C,D) -> ; 
if Co mmand( "abort"), *Binds(D,N, V) -> ; 
if *Comm and( "abort") , 

~Eval(E,C), ~Value( V,E,C), ~Nonlocal(C,D) , ~Binds(D,N, V) 
-> displayn {"aborted"}; 

! Handle incomplete program 
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if *Eval(E,C) , Undef(E), *CurrentNode (Q) 

-> displayn ( incomplete”) , CurrentNode (E) , CurrentContext(C) ; 



if *Unparse(E), Undef(E) 

-> Image ("< expr> ”, E); 

! Syntax Directed Editing 

! in Command 

if ^ommandlW), *CurrentNode(E), Left(X,E) 

-> CurrentNode(X) , Command("show"); 

if *Comm and( "out") , *CurrentNode(X) , Left(X,E) 

-> CurrentNode(E), Command) !, show ,! ) ; 

if *Command('but"), *CurrentNode( Y) , Right(Y,E) 

-> CurrentNode) E) , Command) ,! s how”) ; 

! next Command 

if ^CommandCnext"), *CurrentNode(X) , Left(X,E), Right) Y,E) 
-> CurrentNode) Y) , CommandC^how”) ; 

! prev Command 

if *Command(Vev"), ^CurrentNode) Y) , Right(Y,E), Left(X,E) 
-> CurrentNode) X) , Command) ?, show M ) ; 

! delete command 

if ^Command) "delete 1 ’) , CurrentNode(E), *Con(E), *Litval(V,E) 
-> Undef(E), Command) ?! show n ); 

if *Comm and) "delete") , CurrentNode (E) , 



*Appl(E) , *Op(N,E) , *Left(X,E), Right(Y,E) 

-> Undef(E), Command( f, show") ; 

if *Command( f VIelete"), CurrentNode (E) , Undef(E) 

-> displayn( "already deleted"); 

! # Command 

if *Command( "#"), *Argument( V) , IsInt(V], CurrentNode(E) , *Undef(E) 
-> Con(E), Litval(V,E), Command( ? !show"); 

if *Command( rt #"), *Argument( V) , CurrentNode(E) , ~Undef(E) 

-> displayn ("defined node"); 

! + , x , / Commands 

if *Command(op), member [op, ["+ ", ’be", "/"]], 

*CurrentNode(E), *Undef(E) 

-> CreateAppl(op, E, newobj{}, newobj{}); 

if *Create Appl(op,E,X, Y) 

-> Appl(E) , Op(op,E), Left(X,E) , Right(Y,E), 

Undef(X), Undef(Y), CurrentNode (X) ; 

! begin Command 

if *Command( ?r begin") , *CurrentNode(Q) 

-> CreateRoot(newobj{}); 

if *CreateRoot(E) 

-> Root(E), Undef(E), CurrentNode (E); 

! root Command 
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if *Command(’¥oot n ), *CurrentNode( Q) , Root(E) 

-> CurrentNode(E), Command) '^show") ; 

! Unparsing Variables 

if *Unparse(E), Var(E), Ident(N,E) 

-> Image(N,E); 

! Unparsing Blocks 

! Analysis 

if *Unparse(E) , Block) E), BndVal(X,E), Body(B,E) 

-> Un parse (X), Unparse (B); 

! Synthesis 

if Block(E), BndVar(N,E) , BndVal(X,E), Body(B,E), 
*Image(U,X), *Image(V,B) 

-> Image) Tabln + NL 
+ "(let "+N+ ,, = ,, + U 
+ Tabln + NL + V + "]" 

-f TabOut -I- TabOut, 

E); 

! Editor 
! var Command 

if ^Command) "var") , *Argument(N) , CurrentNode(E) , *Undef(E) 
-> Var(E), Ident(N,E) ; 



! let Command 



if *Command("let n ) , *Argument(N) , *CurrentNode(E), *Undef(E) 
-> CreateLet(N, E, newobj{}, newobj{}); 

if *CreateLet (N, E, X, B) 

-> Block (E) , BndVar(N,E) , BndVal(X,E), Body(B,E), 

Undef(X), Undef(B), CurrentNode(X) ; 

! in Command for Blocks 

if ^'CommandC'in"), *CurrentNode(E) , BndVal(X,E) 

-> CurrentNode(X) , Command( , ’show"); 

! out Command for Blocks 

if *Command("out ,f ), *CurrentNode(X), BndVal(X,E) 

-> CurrentNode(E), Command) '‘show") ; 

if ^ommandCbut 11 ), *CurrentNode(B) , Body(B,E) 

-> CurrentNode(E), Command) Mshow 11 ) ; 

! next Command for Blocks 

if ^CommandCViext' 1 ) , *CurrentNode(X) , 

BndVal(X,E) , Body(B,E) 

-> CurrentNode(B) , Command(’!show ,, )5 

! prev Command for Blocks 

if *Command( M prev n ) , *CurrentNode (B) , 

Body(B,E), BndVal(X,E) 

-> CurrentNode(X) , CommandC^how”); 

! EVALUATION OF BLOCK 
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! Evaluate Bound Value 



if *Eval(E,C) , Block (E), BndVal(X.E) 

-> Eval(X,C) ; 

! Bind Var. to Value 
! Evaluate Body 

if Block (E), BndVar(N,E) , BndVal(X,E), Body(B,E) , 

*Value( V,X,C) 

-> CreateContext (newobj{), N, V, C, B); 
if *CreateContext(D,N, V,C,B) 

-> Context(D), Binds(D,N, V) , Nonlocal(C,D), Eval(B,D); 

! Return Value To Surrounding Block 
if Block (E), Body(B,E), 

*Value( V,B,D) , *Nonlocal(C,D), *Binds(D,N,W), *Context(D) 
-> Value(V,E,C); 

! Variable Lookup 

if *Eval(E,C), Var(E) , Ident(N,E) 

-> Looking(N,C,E,C); 

! VARIABLE EVALUATION 

! Binding Found 

if *Looking( N,C,E,D) , Binds(C,N,V) 

-> Value( V,E,D) 



! Continue Looking 



else if *Looking(N,C,E,D), Nonlocal(Cprime,C) 

-> Looking(N,Cprime,E,D ) 

! Variable Unbound 

else if *Looking(N,C,E,D), *CurrentNode(Q) , *CurrentContext(Q) 

-> CurrentNode(E) , CurrentContext(D) , displayn( ,f Unbound: ” + N) 

! Debugging Commands 

! context Command 

if *Command( "context”), CurrentContext(C) , Binds(C,N,V) 

-> displayn( N + ” = ” ■+■ int_str(V] ) 

else if *Command( "context”) 

-> displayn ( ,! no bindings”); 

! out_context Command 

if *Command("out_context”) , *CurrentContext(D ) , Nonlocal(C,D ) 

-> CurrentContext(C) , Command) "context”) 

else if *Command( "out^ontext 11 ) 

-> displayn (”at outermost level”) ; 

! in_context Command 

if ^Command) ”in_context”) , *CurrentContext(C) , Nonlocal(C,D) 

-> CurrentContext(D), Com m and ( "context”) 

else if *Com m and ( 'b_con text”) 

-> displayn ("at innermost level”); 

! alter Command 
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if *Command( "alter") , *Argument(U) , 

CurrentContext(C) , *Binds(C,N, V) 

-> Binds(C,N,U) , Command( ,, context ,1 ) 

else if *Comm and ("alter"), *Argument(Q) 

-> displayn ("no binding"); 

! Test Driver 

if *Script( A, Nil) -> A ("Script completed") 

else if *Script( A,L) , member [ first ( L] , [ "val", "let", "var", "alter"]] 
-> { display {" ... "}; 

display {first [rest [L]]}; 
displayn {" " + first [L] }; 

Command) first] L] ) , Argument(firstjrest(L] ] ) ; 

PendScript( A, rest[rest[L] ] ) } 

else if *Script(A,L) 

-> { displayn {" ... " + first [L] }; 

Comm and ( first] Ll ) ; 

PendScript( A, rest [ L] ) }; 

if *PendScript( A,L) , 'Command(Q) -> Script) A, L); 
if *Test( A, 1 ) -> { 

Script{] ff be gin", ’let", ,f X", "+ ","#",3, "next","#", 5, "out", 1 "next", 

'let", ,r Y", "/","#", 6, "next","#",2,"out", ,! next" 

"+ ", ’Var", "X", "next", "/", 'Var", ,r Y","next", "#", 1, "root", "evaluate "] }; 

A ( 'Test done ") ; 

}; 



if *Test(A,2) -> { 

Script{("in", "next", "in", "next", "in", "next", "in", "next ", 
'tielete ","#",0, "root", "evaluate"] }; 

A ('Test done") ; 

}; 

if *Test(A,3) -> { 

Script{[ "conte xt", "out_context" "alter", 7, 
'^n^context", ’but_context" M out_context M ] }; 

A ( 'Test done") ; 

} 

>> }• 

! activate the rules 

act{ Pl2Rules }. 

CurrentNode(Nil) . 

CurrentCon text (Nil). 
displayn{"PI-2 System loaded"}. 
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APPENDIX B: Transcript of H Session 



The following is a transcript of an H session illustrating the operation of the prototype programming 
environment shown in Appendix A. The call ‘Test {n}’ causes the commands comprising the nth test 
script to be executed in order. Each command is printed on a separate line, followed by whatever out- 
put is generated by the programming environment. This transcript was produced by the McArthur 
interpreter [ McArthur84] . 

% om 

OMEGA-1 11/30/84 
Use Cntl-D or exit{} to quit. 

For help, enter help{ ?f ? n }. 

To report a bug, enter Bugs{}. 

> do{ ,f PI2.rul n }. 

PI-2 System loaded 

OK 

> Test{l}. 

... begin 
... X let 
... + 

... 3 # 

3 

... next 
< expr> 

... 5 # 

5 

... out 
(3 + 5) 



o r\ 



... next 



< expr> 

... Y let 

-/ 

- 6 # 

6 

... next 

< expr> 

... 2 # 

2 

... out 

( 6 / 2 ) 

... next 

< expr> 

... + 

... X var 
... next 

< expr> 

•••/ 

... Y var 
... next 

< expr> 

... i # 

i 

... root 

[let X = (3 + 5) 

[let Y = (6/2) 

(X + (Y / 1)) ] ] 
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... evaluate 



11 

Test done 
> Test{2}. 

... in 

(3 + 5) 

... next 

[let Y = (6/2) 
(X+ (Y/l)) ] 

... in 

( 6 / 2 ) 

... next 

(X + (Y/l)) 

... in 

X 

... next 

(Y/l) 

... in 

Y 

... next 

1 

... delete 
< expr> 

... 0 # 

0 

... root 

[let X = (3 + 5) 
[let Y = (6/2) 



(X + (Y/0)) ] ] 



... evaluate 
division by zero 
Test done 
> Test{3}. 

... context 

Y = 3 

... out_context 

X = 8 
... 7 alter 
X = 7 
... in context 

Y = 3 

... out_context 

X = 7 

... out_context 
no bindings 
Test done 
> exit{}. 

Goodbye. 

% 
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